home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5910.txt < prev    next >
Text File  |  1994-03-01  |  3KB  |  69 lines
  1. 5 GOTO10010
  2. 10 DATAF ,9.648456,Ž10” [C¥molž],Ž10þ [emu¥molž],E4,E3,10,20
  3. 20 DATAG ,6.6720,Ž10‰ÇÇ [mþ¥s‰ý¥kgž],Ž10‰˜ [cmþ¥s‰ý¥gž],E-11,E-8,10,30
  4. 30 DATANa,6.022045,Ž10ýþ [molž],Ž10ýþ [molž],E23,E23,20,40
  5. 40 DATAR ,8.31441," [J¥molž¥Kž]",Ž10— [erg¥molž¥Kž],,E7,30,50
  6. 50 DATARï,1.097373177,Ž10— [mž],Ž10• [cmž],E7,E5,40,60
  7. 60 DATAVm,22.41383,Ž10‰þ [mþ¥molž],Ž10þ [cmþ¥molž],E-3,E3,50,70
  8. 70 DATAaß,5.2917706,Ž10‰ÇÇ [m],Ž10‰™ [cm],E-11,E-1,60,80
  9. 80 DATAc ,299792458," [m¥sž]",Ž10ý [cm¥sž],,E2,70,90
  10. 90 DATAe ,1.6021892,Ž10‰Ç™ [C],Ž10‰ýø [emu],E-19,E-20,80,100
  11. 100 DATAg ,9.80665," [m¥s‰ý]",Ž10ý [cm¥s‰ý],,E2,90,110
  12. 110 DATAh ,6.626176,Ž10‰þ” [J¥s],Ž10‰ý— [erg¥s],E-34,E-27,100,120
  13. 120 DATAk ,1.380662,Ž10‰ýþ [J¥Kž],Ž10‰Ç– [erg¥Kž],E-23,E-16,110,130
  14. 130 DATAme,9.109534,Ž10‰þÇ [kg],Ž10‰ý˜ [g],E-31,E-28,120,140
  15. 140 DATAmn,1.6749543,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,130,150
  16. 150 DATAmp,1.6726485,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,140,160
  17. 160 DATAu ,1.6605655,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,150,170
  18. 170 DATAîß,8.854187818,Ž10‰Çý [F¥mž],,E-12,,160,180
  19. 180 DATAæß,12.5663706144,Ž10‰— [H¥mž],,E-7,,170,190
  20. 190 DATAæb,9.274078,Ž10‰ý” [J¥Tž],Ž10‰ýÇ [erg¥Gž],E-24,E-21,180,200
  21. 200 DATAæe,9.284832,Ž10‰ý” [J¥Tž],Ž10‰ýÇ [erg¥Gž],E-24,E-21,190,210
  22. 210 DATAæp,1.4106171,Ž10‰ý– [J¥Tž],Ž10‰ýþ [erg¥Gž],E-26,E-23,200,220
  23. 220 DATAå ,5.67032,Ž10‰˜ [W¥m‰ý¥K‰”],Ž10‰•[erg¥sžcm‰ýK‰”],E-8,E-5,210,220
  24. 10010 u=0:MODE8:DIM:x=10:y=220:d$=CHR$(5):r=x:DEFCHR$(255)="060A040A0D"
  25. 10050 CLS:LOCATE0,1:PRINT">constant : key A-Z ?";
  26. 10110 RESTORE(r)
  27. 10120 READm$,n$,s$,t$,x$,y$,b,c:l$="["+MID$(STR$(r/10),2)+"]":IFr<100 THENl$=" "+l$
  28. 10130 IFu=1 THENu$=t$ ELSEu$=s$
  29. 10140 d=0:LOCATE0,0:PRINTd$;m$;" =";n$;u$;:LOCATE27,1:PRINTl$;
  30. 10150 LOCATE30,1:z=ASC(INPUT$(1,@))
  31. 10165 IFz>96 THENz=z-32
  32. 10170 IFz=28 ANDu<>1 THENu=1:GOTO10130
  33. 10180 IFz=29 ANDu<>0 THENu=0:GOTO10130
  34. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  35. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  36. 10220 IFz>64 ANDz<91 THENGOSUB10310:d=1
  37. 10230 IF(z=28 ORz=29) ANDd=1 THEN10140
  38. 10280 GOTO10150
  39. 10310 LOCATE0,0:PRINT"[";CHR$(z);"]";
  40. 10320 IFu=1 THENv$=n$+y$ ELSEv$=n$+x$
  41. 10330 a=VAL(v$)
  42. 10350 ON z-64 GOSUB10401,10402,10403,10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426
  43. 10401 A=a:RETURN
  44. 10402 B=a:RETURN
  45. 10403 C=a:RETURN
  46. 10404 D=a:RETURN
  47. 10405 E=a:RETURN
  48. 10406 F=a:RETURN
  49. 10407 G=a:RETURN
  50. 10408 H=a:RETURN
  51. 10409 I=a:RETURN
  52. 10410 J=a:RETURN
  53. 10411 K=a:RETURN
  54. 10412 L=a:RETURN
  55. 10413 M=a:RETURN
  56. 10414 N=a:RETURN
  57. 10415 O=a:RETURN
  58. 10416 P=a:RETURN
  59. 10417 Q=a:RETURN
  60. 10418 R=a:RETURN
  61. 10419 S=a:RETURN
  62. 10420 T=a:RETURN
  63. 10421 U=a:RETURN
  64. 10422 V=a:RETURN
  65. 10423 W=a:RETURN
  66. 10424 X=a:RETURN
  67. 10425 Y=a:RETURN
  68. 10426 Z=a:RETURN
  69.